home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AutoScripter.cpt / AutoScripter / card_5095.txt < prev    next >
Text File  |  1988-03-05  |  4KB  |  174 lines
  1. -- card: 5095 from stack: in
  2. -- bmap block id: 5759
  3. -- flags: 0000
  4. -- background id: 2786
  5. -- name: show items
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=180 top=137 right=159 bottom=295
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: cards
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   ask "How many cards (or all)?" with "all"
  23.   put it && "cards" & return after holder
  24.   put holder after field "script-it" of card "main card"
  25.   visual effect wipe left
  26.   pop card
  27. end mouseUp
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: 8003
  37. -- rect: left=180 top=163 right=185 bottom=296
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: menuBar
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   global holder
  49.   put "menuBar" & return after holder
  50.   put holder after field "script-it" of card "main card"
  51.   visual effect wipe left
  52.   pop card
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 3 (button)
  58. -- low flags: 00
  59. -- high flags: 8003
  60. -- rect: left=179 top=189 right=210 bottom=297
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: tool window
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   global holder
  72.   put "tool window" & return after holder
  73.   put holder after field "script-it" of card "main card"
  74.   visual effect wipe left
  75.   pop card
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 4 (button)
  81. -- low flags: 00
  82. -- high flags: 8003
  83. -- rect: left=180 top=215 right=236 bottom=300
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: pattern window
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   global holder
  95.   put "pattern window" & return after holder
  96.   put holder after field "script-it" of card "main card"
  97.   visual effect wipe left
  98.   pop card
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 5 (button)
  104. -- low flags: 00
  105. -- high flags: 8003
  106. -- rect: left=180 top=241 right=262 bottom=301
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: message box
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   global holder
  118.   put "message box" & return after holder
  119.   put holder after field "script-it" of card "main card"
  120.   visual effect wipe left
  121.   pop card
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 6 (button)
  127. -- low flags: 00
  128. -- high flags: 8003
  129. -- rect: left=181 top=267 right=288 bottom=302
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: button
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   global holder
  141.   answer "What kind of button?" with "background" or "card"
  142.   put it into butType
  143.   ask "Enter button's name:"
  144.   put butType && "button" && quote & it & quote & return after holder
  145.   put holder after field "script-it" of card "main card"
  146.   pop card
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 7 (button)
  152. -- low flags: 00
  153. -- high flags: 8003
  154. -- rect: left=181 top=293 right=314 bottom=302
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: field
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   global holder
  166.   answer "What kind of field?" with "background" or "card"
  167.   put it into fieldType
  168.   ask "Enter field's name:"
  169.   put fieldType && "button" && quote & it & quote & return after holder
  170.   put holder after field "script-it" of card "main card"
  171.   pop card
  172. end mouseUp
  173.  
  174.